﻿Imports System
Imports System.Configuration

Namespace System.Workflow.Runtime.Configuration
    Public Class WorkflowRuntimeServiceElementCollection
        Inherits ConfigurationElementCollection
        ' Methods
        Public Sub Add(ByVal serviceSettings As WorkflowRuntimeServiceElement)
            If (serviceSettings Is Nothing) Then
                Throw New ArgumentNullException("serviceSettings")
            End If
            MyBase.BaseAdd(serviceSettings)
        End Sub

        Protected Overrides Function CreateNewElement() As ConfigurationElement
            Return New WorkflowRuntimeServiceElement
        End Function

        Protected Overrides Function GetElementKey(ByVal settings As ConfigurationElement) As Object
            Return DirectCast(settings, WorkflowRuntimeServiceElement).Type
        End Function

    End Class
End Namespace

